home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
instan1a
/
exists.bas
< prev
next >
Wrap
BASIC Source File
|
1999-10-01
|
257b
|
13 lines
Attribute VB_Name = "Exists"
Option Explicit
Public Function FileExists(filename As String) As Integer
Dim x As Integer
On Error Resume Next
x = Len(Dir(filename))
If Err Or x = 0 Then FileExists = False Else FileExists = True
End Function